Read_YN


Purpose   Prompts user for 'Y' or 'N' response.

Decln.    Read_YN(X,Y:byte;Prompt:strscreen;Box:byte;var Yes:boolean);

Remarks   X, Y are the coordinates of the first character of the prompt or
          the first character of the input field if the prompt is null.
          Prompt is an optional prompt. The prompt is normally displayed to
          the left of the input field. If the prompt begins with a carat
          '' and the box border is on, the prompt is drawn in the upper
          box border. If the prompt begins with an underscore '_' and the
          box border is on, the prompt is drawn in the lower box border.
          Set the prompt to a null '' if no prompt is required.
          Box is a box code. The codes are the same as for the Box
          procedure in FastTTT5. To suppress the box, use a code of zero.
          Yes is the boolean variable that will be updated with the user's
          input.

          Only a Y or N response is accepted.

          The display characteristics of the input line are contained in
          the global variable RTTT.

          The global variable R_Char is updated with the last character
          pressed by the user. This can be checked to see how the user
          terminated input, e.g. Esc, Up Arrow, etc.

Example

VAR
  OK : BOOLEAN;
BEGIN
    OK := FALSE;
    READ_YN(45,15,'DELETE THE FILE?',1,OK);
END;